﻿Imports DataAcessLayer
Imports ZakaFrontEnd
Imports BusinessLogic

Partial Public Class ZakaLogin
    Inherits System.Web.UI.Page

    Dim DAL As New DAL
    Dim BL As New BL

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.ServerClick

        Dim nome = txtUser.Value

        If BL.VerificarUser(nome, txtPwd.Value) Then

            FormsAuthentication.RedirectFromLoginPage(nome, False)

        End If

    End Sub
End Class